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MODULE RESTRICT csyinee LE haste icyed login hours enforcement’ 
) sz 
BEGIN 
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'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
!* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


ie THIS SOFTWARE is FURNISHED mace A LICENSE AND MAY BE USED AND corite 
ONLY | ANCE Wl ER F CE THE 


; 0 
!# OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- oe oka ihe. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
tt SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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! FACILITY 
0 : 
03 i ABSTRACT 
i This module contains the routines that enforce restricted login hours. 
003 i ENVIRONMENT 
i $1 VAX/VMS user and kernel mode. 
& 4 i 
° 4 AUTHOR: M. Jack, CREATION DATE: 16-Feb-1982 
4 i MODIFIED BY: 
46 04 i v03-001 MLJ0109 Martin L. Jack, 14-Apr-1983 12:48 
rt 004 Changes for job controller baselevel. 
49 04 ies 
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LOBAL ROUTINE INITIALIZE_RESTRICTED: NOVALUE= 


uw 


i FUNCTIONAL DESCRIPTION: 
; This routine initializes the restricted login hours subsystem. 


G 
' 

1 

i 

! 

! 

i INPUT PARAMETERS: 

} NONE 

i IMPLICIT INPUTS: 

CUR_TIME - Current time. 
i OUTPUT PARAMETERS: 

| NONE 

i IMPLICIT OUTPUTS: 

; NONE 

i ROUTINE VALUE: 

NONE 

1 

! 

' 

! 


i SIDE EFFECTS: 
; Next hourly timer set. 


HF a TEMP: VECTORC2), ! Temporary for hourly calculation 
TATOS; i Status return 


I © al al “ol *ol al Sak alah val al al alah al al al ae ot oe ae oe oP a oP oe ot 


Compute the expiration time of the first hourly AST, and set the timer. 


ASHOCRREF (+5), UR T me TIME ~TERP) 
EDIV(EREE (3x Tht ® TIME-TEMP “TIME TEMPLO], TIME_TEMPL1)); 
EMUL (ZREF (2X “9 “). TIRE cremPlod. MREF(O), TIME TEMP); 
ASHQ(ZREF ( } IME); 

ADDM(2, BD I PER R ROUR, “HOURLY. ‘TIMES HOURLY TIME); 

HOURL Y_PARAM 4; 

STATUS = SSETIMR( 
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-TITLE RESTRICT Restricted login hours enforcement 
-IDENT \V04-000\ 


-PSECT COMMON,NOEXE, OVR,2 
00000 DIAG_ STORAGE E gOASE: 
00000 DIAG_ TRACE: 


5 | 
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-BLK 
00060 DIAG_COUNT: 


.BL 96 
000C0 DIAG FLAGS: ‘ 
000C4 WORK_AREA: 

-BLKB 44 
OOOFO SNDJBC_COUNT: 

.BLKB 132 
00174 GETQUI_COUNT: ie 
0019C SNDACC_COUNT: ea 


00188 SNDSMB -COUNT : 
00200 DIAG_STORAGE_END: 
-BLKB 
00200 FLA *BLKB 
00204 ihage ‘DUMP STSFL 
00208 THIS_ sysip:. 
-BLKB 


0020 -BLKB 
00210 CUR_TIME: 


.BLK 
00218 HOURLY_TIME: 
00220 HOURLY_PARAMS 
00234 SYMBIONT_COUNT ° 
00238 QUEUE _REF ERENCE COUNT: 
0023¢ mer COUNT: 

-BLRB 4 
0024 40M *BLKB 4 
00244 MBX_END: .BLKB 
00248 nex EN FREE BUEUES: 
00270 NONAST WORK QUEUE : 
00278 BCB_FREE LIST: 
0027C BCB_ACTIVE LIST: 

.BCKB 
00280 GOL _FREE LIST: 
00284 GOL_ACTIVE List: 
00288 QPEN_GETQUI LIST: 
0028C PROCESS -DATA LIS 
00290 SYMBIONT “CONTROL 
00294 SPARE_AREA: | 

.BLKB 
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m5 
1er$ep-1986 92:97:08 | ESoactuesne Snesrei 


QO2A0 REMOTE _REQUEST_LKSB: 


BLK 8 
OO2A8 QUEVE_FILE bese: 
00280 QUEUE -LOCk LKSB: 
cone nse: eee 

02C fac *pRiokitY: 

-BLKB 4 
002C4 JBC_PRIVILEGES: ‘ 
002CC JBC_QUOTAS: 

-BLKB 66 

308 -BLKB 2 
8 10 JBC UIC: gOLKe 4 
00314 Que0E_F - 
00364 QUEUE_RAB: sn 
003A8 QUEUE_NAM: 

-BLK 96 
00408 QUEUE_XAB: 

-BLK Bs 
00460 QUEUE_RSA: 

-BLK 255 
0055F BLK 1 
00560 QUEUE_ALQ: 

-BLK 4 
00564 QUEUE _MBF : 

-BLK 1 
00565 -BLKB 3 
00568 ACCOUNTING PABS: 
00570 ACCOUNTING RABS: 


. K 
00578 ACCOUNT_FAB A: 


~BL 80 
Q05CB ACCOUNT_RABLA: 
OO60C ACCOUNT_NANA: 
0066C ACCOUNT_RSA_ A: 
-BLRB 255 
00768 “BLKB 1 
076C ACCOUNT_FAB B: 
~BL 80 
007BC ACCOUNT_RAB B: 
~BL 68 
00800 ACCOUNT.WAM.B: 
00860 ACCOUNT_RSA B: 
-BLRB 255 
Hse *BLKB 
960 DIAG_FAB: 
LKB 80 
00980 DIAG_RAB: 
BLKB 68 
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VO2-000 ° 1e738p- 1382 93:85:98 «= Hbacte sae SResraicy 09951 208 13) | 
009F4 MBX_CHAN: : 
009F8 MBX_10SB: ; 


00A00 MBX “pur rene 
-BLKB 1024 

00E00 VALUE STORAGE BASE: 

00E00 ITEM_PRESENT: 

00€20 VALUE _GETOU! BAS 

00E20 VALUE ACCOUNT ING MESSAGE: 

0026 VALUE ACCOUNT ING TYPES: 

QOE2A VALUE_AFTER TIME: 

00€32 VALUE ALIGNMENT PAGES: 

00E33 VALUE BASE PRIORITY: 

00E34 VALUE_BATCH INPUT: 

OOE3A VALUE Bai OUTPUT: 

0044 VALUE_BUFFER COUNT: 

00E45 VALUE CHARACTERISTIC NAME : 

00E4B VALUE _CHARACTERISTIC_NUMBER 

OOE4C VALUE CHARACTERISTICS: 

00E5C VALUE CHECKPOINT DATA: 

00E62 VALUE_CLi: 

00E68 VALUE _CPUr DEFAULT: 

OOE6C VALUE_CPU CIAIT: 

00E70 VALUE _DESTINATION_ QUEUE : | 

00E78 VALUE DEVICE NAME : 

OOE7E VALUE_ENTRY NUMBER: 

00E82 VALUE_ENTRY NUMBER _OUTPUT : 

00E8C VALUE EXTEND QUANTITY: 

OOESE VALUE_FILE COPIES: 

OOE8F VALUE_FILE E IDENT FICATION: 

OOEB3 VALUE Flue. SETUP_MODULES: 
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oS } estricted login hours enforcement 1$- gene] 19 + 9 90: $3:0 Melt, Obs + att 


-BLKB 6 
QOEB9 VALUE _FILE a 


| 
. B K | 
OOEBF VALUE FIRST PAGE: | 
00EC3 VALUE _FORM DESCRIPTION: 
00EC9 VALUE _FORM LENGTH: 
OOECA VALUE _FORM MARGIN_ BOTTOM: 
O0ECB VALUE _FORM MARGIN LEFT: 
OOECD VALUE _FORM MARGIN RIGHT: 
OOECF VALUE _FORM MARGIN, TOP: 
00EDO VALUE _FORM NAME: 
00ED6 VALUE _FORM NUMBER : 
OOEDA VALUE _FORM: 
.BLKB 8 
OOEE2 VALUE _FORM SETUP MODULES: 
OOEES VALUE _FORM stock: 
OOEEE VALUE _FORR WIDTH: 
OOEFO VALUE _GENERIC_ TARGET 
012D4 VALUE _JOB COPIES: | 
012D5 VALUE_JOB LIMIT: | 
012D6 VALUE_ JOB. NAME: 
| 


-OLK 
012DC VALUE_JOB RESET MODULES: 
012E2 VALUE_JOB S1ZE_MAXIMUM: 
012E6 VALUE_JOB SIZE MINIMUM: 
O12EA VALUE _J0B STATUS, QUTPUT: | 
012F4 VALUE LAST PAGE: 
012F8 VALUE LIBRARY SPECIFICATION: 
O12FE VALUE_LOG QUEUE : | 
01306 VALUE_LOG SPECIFICATION: 
0130C VALUE_NOTE: | 
-BLKB 6 
01312 VALUE_OPERATOR_REQUEST: 
-BLKB ~ 6 
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01318 VALUE =funer ‘aa 

0131C VALUE _PAGE Nees MODULES: 

01322 VALUE PARAMETER. 

01328 VALUE “paitheten. 3. 

0132E VALUE “PARBAETER. 

01334 VALUE “PARARETER. 4: | 

0133A VALUE _PARAMETER_ : 

01340 VALUE PARAMETER. 6 

01346 VALUE PARAMETER 4 

0134C VALUE _PARAMETER ~8: 
1 
6 
4 
6 


<y 
<2 


01352 VALUE “pRIGHITY: 

01353 VALUE _PRICESSOR: 

01359 VALUE_PROTECTION: 

0135D VALUE -aveue: 

01363 VALUE QUEUE FILE SPECIFICATION: 

01369 VALUE _RELATIVE_PAGE 

01360 VALUE _RESERVED_INPUT_1: 

0136E VALUE_RESERVED_INPUT_2: 

01370 VALUE RESERVED. INPUT_3: 

01374 VALUE_RESERVED_INPUT_4: 

0137A VALUE RESERVED. OUTPUT.1: | 

01384 VALUE _RESERVED_OUTPUT 2: 

0138E VALUE SEARCH STRING: 

01394 VALUE _SCSNODE NAME : 

0139A VALUE _WSDEFAULT: 

0139¢ VALUE _WSEXTENT: 

0139€ VALUE WSQUOTA: 

013A0 VALUE_STORAGE_END: 
-BLKB” 0 
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; Routine Size: 89 bytes, Routine Base: CODE + 0008 


14-Sep-1984 JOBCTL. SREIRESTRICT.B3 (3) 
-PSECT CODE,NOWRT,2 : 
00000008 61(46800 00000 P.AAA: .LONG 1640261632, 8 | ; : 
JBCS_ CLOSEQUT= : ; ; 
JBCS-NOCMKRNL= 8 : 
JBCS- NOOPERS 725 $ 
JBC$"NOSY SNAM= 72404 ; 
JBCS$-OPENIN= 6639 ; 
JBC$"OPENOUT= 6640 ; 
JBCS-READERR= 6641 ; 
JBCS$-WRITEERR= 6644 | ; 
TICKS_PER_HOUR= PLA ; 
-EXTRN scuSFORCEDEXIT, EXESGL_FLAGS : 
sEXTRN SCHSGL_MAXPIX, SCHSGL_RULLPCB ; 
-EXTRN SCHSGL°PCBVEC, EXESV_ EXPLICIT : 
-EXTRN EXESV_EXPLICITS | : 
-EXTRN SYSSSETIMR | ; 
| e 
0004 00000 ENTRY INITIALIZE RESTRICTED, Save R2 3 1135) : 
52 00000000" EF 3 00002 MOVAB HOUR : ; 
7E FBO FB BF «679 00009 ASHQ f= <EOR, TIME. TIME_TEMP ; 1170) : 
04 AE 6E 6€ 43062340 8F 7B OO00F EDIV #1125000 0000, TIME_TEMP, TIME_TEMP, - ; 1171 : 
6E 00 6E 43062340 8F 7A 00019 EMUL #1195000000, TIME ATEMP. #0, TIME TEMP i 1178 : 
62 6 05 79 00022 ASHO_ #5, TIME TEMP, HOORLY TIM : 117 : 
6 CF AF CO 00026 ADDL2 TICKS_PER_HOUR, HOURLY : 1174 ; 
04 Ae CF AF DB O002A T)Cks. PER youaes HOURCY_TIME+4 ; ‘ 
08 Ae 04 0 O00¢F MOVL 4, HOURLY_PARAMS : 1175) ; 
02 DD 00033 PUSHL : 1179) 
0000v CF 9F 00035 PUSHAB HOURLY_AST ; 
52 DD 00039 PUSHL R2 : 
7E D4 00038 CLRL. = = (SP) : 
000000006 00 04 FB 0003D CALLS #4, SYSSSETIMR : 
11 50 £8 00044 BLBS STATUS, 1$ 1180 | 
50 DD 00047 PUSHL STATUS : | 
7E D4 00049 CLRL = : 
0004845A 8F DD 00048 PUSHL #296026 : 
000000006 00 03 FB 00051 CALLS #3, LIBSSIGNAL ; 
04 00058 1$: RET > 1181 | 
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ROUTINE HOURLY_AST_KERNEL (PIX,HOUR,DAY,MODE)= 


lee 


i FUNCTIONAL DESCRIPTION: 
} This routine tests to see if a process is restricted from logins at the 
; current time, and if so, queues an AST to the process to cause its 
4 deletion. This routine executes in kernel mode and partially at 
IPL$_SYNCH. 
i INPUT PARAMETERS: 
‘ PIX - Process index. 
! HOUR - Current hour of day (0-23). 
: DAY - Current day of week (0-6). 
MODE - Access mode at which to queue AST. 
i JMPLICIT INPUTS: 
t PCB for the specified process. 
EXESGL_FLAGS 
i OUTPUT PARAMETERS: 
NONE 
i IMPLICIT OUTPUTS: 
NONE 
i ROUTINE VALUE: 
True if AST queued to process, false otherwise. 
i SIDE EFFECTS: 
AST may be queued to process. 
= 
BEGIN 
REGISTER 
RPIX ! Copy of PIX 
RHOUR, i Copy of HOUR 
RDAY, ' Copy of DAY 
PCB: REF BBLOCK, ' Pointer to PCB 
JIB: REF BBLOCK, ! Pointer to JIB 
STATUS; ' Routine status 
STACKLOCAL 
SMODE; ! Copy of MODE 


! Load parameters into registers or onto the kernel stack to avoid page fault 
at elevated IPL. 


RPIX = PIX; 
RHOUR = .HOUR; 
RDAY = .DAY; 
SMODE = .MODE; 


! If this is the first execution of this routine after midnight, clear the 
! operator override flag. 


<v 
ego 
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- 4 JOBCTL 
! 


iF .RHOUR EQL 0 AND .SMODE EQL PSLSC_USER 
EXESGL_FLAGSCEXESV_EXPLICITS] = FALSE; 


se 


} Raise IPL to SYNCH. 
MTPR(LOCK_IPL, PRS_IPL); 


Do the real wirk. 
pce = .SCHSGL_PCBVECC.RPIX); 


BEGIN 
IF .PCB EQLA SCHSGL_NULLPCB 
THEN 


FALSE 

ELSE 
IF .PCBCPCBSL_OWNER] NEQ 0 
OR; PCBLPCBSV_NETWRK] 


N 
FALSE 
ELSE 


EGIN 
JIB = ,PCBCPCBSL_JIB); 
i -JIB EQL 0 


HEN 
FALSE 
ELSE 
IF 


Null process: hands of 


Subprocess: Likewise 
Network process: Likewise 


Point to JIB 
No JIB 


SNA AAAAAAAA AMINE BP PPP EE 


w 
COON NEW 0 OONO UE WN ( O ODNO UNE WWN OOOO UE WO OONOUFE WOO 


Block false if primary day 
Operator override? 


AAA AAI AIP POPUPININONUPUNIDYD 2 2 OOO Oe es 


BEGIN 

IF .EXESGL_FLAGSCEXESV_EXPLICITS) 
-EXESGL_FLAGSCEXESV_EXPLICITP) 
-BITVECTORCJIBCJIBSB_DAYTYPES], .RDAYJ 


Clear if process specified primary day 


SRP rv oo 


Clear if operator override primary day | 
| 


THEN 
ELS -BITVECTORCJIBCJIBSL_ODAYHOURS), .RHOUR] 


Set if restricted secondary hour 


eee INNINMNINIIININININS 


a a dd 
POPIPIPDPIPININNGPIPOPDNINDPYNNPYAINPYPINYPININIPYNPININININININIANINININIPPIPIDIPYPIPINIPIPIPIPINPNPIPOPINNNNIPD 


Be Oe Be Se Se Be Se Oe Ge Be Se Oe Oe we Be Se Bt Se Se Se Se BH Se Se FHS Se Oe Se Oe Oe Se Se Os Se Se Be Se Se Se Se Se Se Oe Se Se Oe Se Se Os Oe Se Se Oe Se Se ee 


ROPOPIPIPOPIPI WWIII BBB ENT BB BEE EE 
— 


7 
7 
7 
7 
7 
7 
7 
3 
rt} 8 oe -BITVECTORCJIBCJIBSL_PDAYHOURS], .RHOUR] ! Set if restricted primary hour 
4 H END 
4 8 N 
48 8 BEGIN 
49 8 SCHSFORCEDEXIT(SMODE, SS$_FORCEDEXIT, .PCB); ! Queue AST to process 
50 STATUS = TRUE; 
51 END 
26 8 ELSE 
5 9 STATUS = FALSE; 
54 91 
5 4 
: t : Lower IPL, and return status. 
58 95 MTPR(ZREF(O), PRS_IPL); 


ES eee am ree 


: | 
vOL-000. 3ep=1986 19:97:13 — Eddacte se sResrRICT 039; 1 ree If 


i 888 1599 eno: ® | 
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003¢ 00000 HOURLY, AST KERNEL : 


WO Save R2,R3,R4,R5 : 
55 000000006 00 9 990 MOVAB EXESGL_FLAGS, R5 : 
20 4 Ac 70 009 MOVa PIX, RPIX + 1231 
¢ AC 00 0 MOVL DAY. RDAY : 1 33 
AC DD 11 PUSHL MODE + 1234 
1 D5 00014 TSTL RHOUR : 1240! 
9 12 00 1g BNEQ 1 : 
03 E 01 0001 CMPL  SMODE, #3 ; 
4 if 0018 BNEG 3s} : 
00 65 0G £5 0001D BBCC  S*EXESV_EXPLICITS, EXESGL_FLAGS, 1$ + 124 
ig 444 60 DA 00021 1$: MTPR LOCK a : 124 
53 000000006 60 D0 00026 MOVL SCHSBL PCBVEC, R3 : 1252) 
54 6340 pO 02D MOVL  (R3)CRPIXJ, PCB : | 
50 000000006 00 9€ 00031 MOVAB SCH$GL_NULLPCB, RO : 1255) 
50 4 D1 00038 CMPL PCB, RO : 
F 13 00038 BEQL : 
1c A& D5 00030 TSTL 8 (PCB) + 1259 
3A 1 00040 BNE : 
35 26 AG 0S E 0042 BBS #5, 38(PCB), 6$ ; 1260) 
50 0080 ¢é 09 004 MOVL 128(PCB), JiB : 1265 
gE 13 0004¢ BEQL 68 :1 66 
06 65 G E1 OO4E BBC S*EXESV_EXPLICITS, EXESGL_FLAGS, 2% : 127 
OE 65 006 Fl 005 BBC SCEXESVEXPLICITP, EXESGL-FLAGS. 4$ t 1274 
: 1 0056 BRB $ : 
07 0B Ad 2 €1 0005 28: BBC RDAY, 11(JIB), 4$ : 127% 
1A 64 AO 51 €1 0050 $: BBC RHOUR, 100(JIB), 6$ + 1279 
05 11 0006 BRB ; 
13 60 ad 1 £1 00064 4$: BBC RHOUR, 96(JIB), 6$ : 1281 
30 6E 9E 00069 5S: MOV MODE. R : 1286 
5 sire 8F 3C 0006C MOVZWL #85 R $ 
000000006 00 16 0071 JSB SCHSFORCEDEXIT F 
50 1 pO 00077 MOVL #1, STATUS : 1287 
02 11 O007A BRB + 1253 
D4 0007¢ $$ CLRL «STATUS : 1290 
12 00 DA OO07E 7$ MTPR 4&0, #18 > 1295 
04 00081 RET > 1297. 


3; Routine Size: 130 bytes, Routine Base: CODE + 0061 


Restricted login hours enforcement 1500-1984 99:95:06 pate ttiat Trae Page a 
i cor LOCK IPL: PSECT(CODE) INITIAL(IPLS$_SYNCH); | 
1 

Lt 1 
1 


seus 


aif LOCK_IPL + 4 = HOURLY_AST_KERNEL GTR 512 
ZTHEN ZERROR('Possible page fault at elevated IPL") %FI 


6 
RESTRICT Restricted login hours enforcement 1b-Sep-1984 90:95:06 oR 


ROUTINE HOURLY_AST(TYPE): NOVALUE= 


'e¢ 


' 
FUNCTIONAL DESCRIPTION: 

This is the completion AST routine for the timer that expires on the 
hour. It checks for processes that are restricted by the authorization 
record from logins af the current hour, qyeues ASTs to these processes 
to cause their deletion, and sets a new timer. If ony processes were 
found, it sets a timer to expire in 2 minutes to chec 
it sets a new hourly timer. 


INPUT PARAMETERS: 
TYPE 


SELEAE 


again; otherwise 


= JBCSK_HOURLY_IDT or JBCS$K_MINUTE_IDT, 
passed as REGIDT. 


IMPLICIT INPUTS: 
HOURLY_TIME - Expiration time of this AST. 


OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

HOURLY_TIME - Expiration time of next AST. 
ROUTINE VALUE: 

NONE 


SIDE EFFECTS: 
ASTs queved to processes that should not be logged in at this hour. 


POSSIBLE, 
STATUS; 


SOONOA MEW O ODNOU EW (OO ONO UNSW O 


If .TYPE EQL JBC$K_HOURLY_IDT 
THEN 


LOCAL 
TIME_TEMP: VECTORC2], ! Temporary for time calculations 
T; ! Temporary for time calculations 


BEE EE EE FMAM IAAL PPONIPURINPUNINDDYD 2 9 OO OO Oe 


Get the current time. 
$GETTIM(TIMADR=CUR_TIME) ; 


' Compute the day of the week and hour of the day, and initialize the AST 
' access mode to user mode. 


yc eae es eg000 R008) CUR_TIME, TIME_TEMPCO), 1); ! Get minutes since base time value 
ME_TEMPCL1) = 0; 


NOUS WO OONOU Ew 


PUP PASI 


Be Se Se Ge Se Se Se Be Ss Se Se Ge Ge Se Be Se Se Ge Ge Ge Ge Fe Ge Ge Ge Ge Ge Ge Se Se Se Ge Se Se Se Se Se Se Se Ge Se Se Se Se SH Se Oe Se Se Se He Se SH SH Se Ss we 


Mororofoer 
So EE EEL et SS PET SS RISE LS ss peers nae 
em ee ek a a atk a a a et a et ss a os a 


Ww 
o 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
LOCAL 
BEGIN 


owe 


i 
; 
ED 
| 
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$ EDIV (REF . TIME_TEMP, 
1ME_ TEMP 
8 EDIVTRRE Time i 
IME TEMP 
TIME “TEMP 
1 EDIVTEZREF 
¢ HOURLY _PARAM ="PSLS$ 
5 


AsHa (REF (- sete 
Jat aah oe 
REFS), 

REF (5) 

» TICK 


tesa | 


POSSIBLE = FAL 


N 
pavers PARAMS(1] = 


i set a timer to expire in 


OCONOAVEWN “OC OBNOAUES WN 


PPPS II 
OOOOOOMWMOMMOMc 


Do 20000 
SSSSSF SSeS SSTS SR oe 


BEGIN 
IF _ .POSSIBLE 
THEN 


Mebwnr— 
s 


= POPUPOPOPONOPU WONT WII ES BB 
foal “4 
a =x 


oo 


Wwn— 


ELSE 
FALSE 
END 


N 
STATUS = SSETIMR 


 vvv 
ee a a a a ee a a ed de 


Fe oF ot ot oF ot ot ot nt at nd ek th 


AS TADR=HOU 


STATUS = S$SETIMR( 
DA to ge —TIME, 
ASTADR=H 


wvvv 


we eee eevee es oe 
NOUS WIN —OO® w 


mbcON eS TEmPCO), HOURLY_PARAMS[2]); Get days since base time value, store hour | 
‘te TER TIME_TEMPCOJ, HOURLY_PARAMS(3]); ! Get day of week 
$4 €_USER; 


Compute the expiration time of the next hourly AST, and set the timer. 


ME, TIME TEMP 
TIME” “TEMP. 
TIME ctenrlo1. 


R IME) 
§ PER EAOUR, * HOURLY _TIME, HOURLY_TIME); 
Scan all processes looking for processes to delete, and delete these. 
E; 
INCR PIX FROM 2 TO .SCHSGL_MAXPIX DO 


SSIBCE = MPOSSIBLE OR’ * SCMKRNL (ROUTIN=HOURLY_AST_KERNEL, ARGLST=HOURLY_PARAMS) ; 


! If any processes were found and the current AST access mode is not kernel 
minutes so that we may check again and queue ASTs 
at the next outer access mode. Otherwise, set a new hourly timer. 


BEGIN 
HOURLY_PARAMS(5] = .HOURLY _PARAMS(5) - 1; 
-HOURLY_PARAMS(5) GEQ 

Aeorpr=JBtse ‘atnute _101) 


OURLY"AST, 
REQIDT=JBCSK Rourty_ IDT); 
aa «STATUS THEN SIGNAL(JBCS_SETIMR OR STSSK_ERROR, 0, .STATUS); 


Sep-1 4: AX-11 Bliss-32 v4. P 15 
1b-Se0-1984 99:95:95 | Fabacre Saesnesretes 03951 29 6) | 
TIME_TEMPCO], 1); ! Get hours since base time value 


Adjust for base day being Wednesday 


*TIME_TEMPCOI 
EREF CO). fine’ “ TEMP); 


DAYTIRUPLIT (~ ~1290000000. -1), ! 2 minute delta time 


vets 


10 


16 
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e7 


000000006 
F8 


~— 
ooo 


04 


oc 


000000006 


000000006 


€3 
00000008 BoEe LOCK_IPL: 
FFFFFFFF 68797400 OO0E8 P.AAB: 


007¢ 
ooo fF 
04 ae 5 
5 
FR AS OOF 
00 1 £8 
AS 23€34600 F 7B 
04 AE be 
6E 3¢ (78 
046 =A ih 
6E 1 
ad a 
5 | 
fe 3 
AS F F 
6E 430E234 F 7B 
6E 430E2340 BE 7A 
of 5 79 
6 66 C 
AS 04 A6 D 
54 000000006 6 b? 
™ t 1} 
AS 5 0 
08 A F 
FEEA F 44 
| 
52 4 F 
1 E 
1c OA 0 
St 
FFSD =6CF OOF 
OOES C6 OF 
7 
FF51 F oF 
5 0D 
a: 
% 
0 oD 


-BLKB 


- LONG 
LONG 
~EXTRN 
00000 HOURLY _AST: 
~WOR 
0006 MOVAB 
00 MOV 
Boe SUBL 
Bh CMPL 
0 13 BNEG 
001 PUSHAB 
OO1A CALLS 
0021 EDIV 
0028 CLAL 
00 4 EDIV 
00 CLRL 
00 EDIV 
003C¢ ADDL2 
003F CLRL 
9k EDIV 
004 MOVL 
004 ASHQ 
005 EDIV 
0058 EMUL 
0064 ASHQ 
0068 ADDL2 
0068 ADWC 
TA 1$: MOVL 
007 Ova 
Bate BRB 
O7C 2$: MOVL 
00 PUSHAB 
0 PUSHAB 
0 CALL 
0 : BISL 
0091 3$: AOBLEQ 
nee BLBC 
9 DECL 
098 BLSS 
09D PUSHL 
O9F PUSHAB 
pas PUSHAB 
OA BRB 
AD 4$: PUSHL 
AB PUSHAB 
OAF PUSHL 
pat 5$: CLRL 
8 B3 ark ts 
OBA BLB 
00BD PUSHL 


iEseo-19Rs 09:34:08 


JOBCTL.SRCIR 


1 


8 
-1200000000, -1 


SYSSGETTIM, SYSSCMKRNL 


Tes BER ncURY Re 
HOUR RLY_T TE E, R5 
TYPES #2 

tie 


1$86 
root 6" 


I IME TEMP 
GuRE 
$000 
309 
“tee, 


S 
$GC_MARPIX, R4 
PIR 


PIX HOURLY PARAMS+4 
HOURLY 
4 MACY “het KERNEL 
» SYSSCMRRN 
R 2 bus SIBLE 
Poss! 


BLE 
HOURLY LB ARAMS+20 
i 
HOURLY_AST 
P.AAB 
¥ 
HOURLY_AST 
(SP) 
#4 SYSSSETIMR 
STATUS, 6 
STATUS 


AX-11 Bliss-32 
ES 


(UR. TIME, TIME_TEMP, T 
#0, “TIME “ENP. TIME_TEMP, T 
i: “Time TEMP, TIME_TEMP, HOURLY_PARAMS+8 


ami TIME TEMP, HOURLY_PARAMS+12 


; #0, TIME_ fenP 
“time 


bref 
PER. HOURSS" HOURLY Ti TIME+4 


See Se Se Oe Se Se Se Se Se Se Ge Se Se Se Ge Se Se Se Ge Se Ge Be Ge Ge Fe Se Fe Fe Ge Se Se Se Se Fe Fe Se Ge Se Se Se Se Ge Ge Se Be 


1364 


—- ew 

Ww pe menenene? ww 
SIN NNOO 
AMF UNNOWM 


oo 
w 


vOe-005" 


; Routine Size: 


Restricted login hours enforcement 


000000006 00 


Routine Base: 


D4 
0004845A iN : 
0 


CODE + O0FO 


if3 


6 
ep- 
ep- 


198s 93:89:48 


rt 
#29602 
#3, U1 


AX-11 Oils =32 v4 
JOBCTL.SRCJRESTRI 


6 
BSSIGNAL 


77833;1 


erties Heo: eter HSSEcH9Rt ABSA WGI SHeNARE MEPL, 


14190 ELUDom 


~EXTRN LIBSSIGNAL 
PSECT SUMMARY 
Bytes Attributes 


C, WRT, RD ,NOEXE,NOSHR, LCL, REL, OVR, yo berg pote f 
C,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Pie eee Sie BS Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 

: .$255$DUA28: CSYSLIBIJLIB.L32;1 18619 49 0 1000 00:01.5 
; COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:RESTRICT/OBJ=OBJ$:RESTRICT MSRC$:RESTRICT/UPDATE=(ENH$:RESTRICT) 
3; Size: 426 code + 5045 data bytes 

; Run Time: : 

; Elapsed Time: 00: 33. 8 

3 Lines/CPU Min: 5799 

; Rovenes/CPUMi: 49520 

3 ry Used: 237 pages 

: eee ation Complete 
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